unit uRegInfo;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  ExtCtrls;

type

  { TFmRegInfo }

  TFmRegInfo = class(TForm)
    BtRegSv: TButton;
    BTMachineCopy: TButton;
    BTRegCopy: TButton;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    MemMachineCode: TMemo;
    MemRegCode: TMemo;
    Memo3: TMemo;
    PageControl1: TPageControl;
    Panel1: TPanel;
    Panel2: TPanel;
    TabRegInfo: TTabSheet;
    TabSheet2: TTabSheet;
    procedure BtRegSvClick(Sender: TObject);
    procedure BTRegCopyClick(Sender: TObject);
    procedure BTMachineCopyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public

  end;

var
  FmRegInfo: TFmRegInfo;

implementation

{$R *.lfm}

{ TFmRegInfo }

procedure TFmRegInfo.BTMachineCopyClick(Sender: TObject);
begin

end;

procedure TFmRegInfo.FormShow(Sender: TObject);
begin

end;

procedure TFmRegInfo.BTRegCopyClick(Sender: TObject);
begin

end;

procedure TFmRegInfo.BtRegSvClick(Sender: TObject);
begin

end;

end.

